home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 126-150 / scopedisk148 / powerplatform / rexx / profile.app < prev   
Text File  |  1995-03-19  |  4KB  |  75 lines
  1. /************************************************************************/
  2. /* This is the sample Profile for PowerPlatform Release 1.0.            */
  3. /*                                                                      */
  4. /*                                              ==> MCW 08/19/90 <==    */
  5. /*                                                                      */
  6. /*                   Copyright © 1990 Martin C. Warnett.                */
  7. /************************************************************************/
  8.  
  9. trace off
  10.  
  11. 'Options WorkBench'                         /* Open on WorkBench        */
  12. 'Options Bytes'                             /* Display file size        */
  13.  
  14. 'DefineDevice HardDisk 1 SYS:'              /* Define devices           */
  15. 'DefineDevice HardDisk 2 DH0:'
  16. 'DefineDevice FloppyDisk 3 DF0:'
  17. 'DefineDevice RAMDisk 4 RAD:'
  18. 'DefineDevice RAMDisk 5 RAM:'
  19. 'DefineDevice HardDisk 6 NET:'              /* ParNet device            */
  20. 'DefineDevice FloppyDisk 7 MSH:'            /* MessyDOS device          */
  21.  
  22. 'CDSource RAM:'                             /* Set active directories   */
  23. 'CDTarget RAM:'
  24.  
  25. 'DefineConsole 1 CON:0/50/640/100/Console1'
  26. 'DefineConsole 2 CON:0/25/640/150/Console2'
  27. 'DefineConsole 3 CON:40/20/640/430/Console3'
  28.  
  29. 'DefineMenu Utilities'                      /* Define Utilities menu    */
  30. 'DefineItem WB Calculator SYS:Tools/Calculator'
  31. 'DefineItem WB MeMacs SYS:Tools/MeMacs'
  32. 'DefineItem WB Clock SYS:Utilities/Clock'
  33. 'DefineItem WB Say SYS:Utilities/Say'
  34.  
  35. 'DefineMenu Applications'                   /* Define Applications menu */
  36. 'DefineItem WB DeluxePaint DH0:DPIII/DPaint'
  37. 'DefineItem KEY=P WB ProWrite HardDisk:WordProcessing/ProWrite/ProWrite'
  38.  
  39. 'DefineMenu Games'                          /* Define Games menu        */
  40. 'DefineItem KEY=S WB Streets HardDisk:Games/Streets+Alleys'
  41. 'DefineItem WB BattleChess HardDisk:Games/BattleChess'
  42. 'DefineItem WB Montana HardDisk:Games/Montana'
  43. 'DefineItem KEY=T WB Tetrix HardDisk:Games/Tetrix'
  44.  
  45. 'DefineExt CLI Run CDSource ToWB C DME &sf' /* Associate .C with DME    */
  46. 'DefineExt CLI Run CDSource ToWB H DME &sf' /* Associate .H with DME    */
  47. 'DefineExt ARexx rexx &sf'                  /* Associate .REXX with do  */
  48. 'DefineExt ARexx APP &sf'                   /* Associate .APP with do   */
  49.  
  50. 'DefineFunction 1 TagAll TagAll'            /* Select all files         */
  51. 'DefineFunction 2 Reset Reset'              /* Deselect all files       */
  52. 'DefineFunction Run CDSource 3 Shell NewShell NEWCON:0/50/640/100/AmigaShell'
  53. 'DefineFunction Sleep TargetRefresh 5 Copy copy FROM &sf TO &tf COM'
  54. 'DefineFunction Sleep TargetRefresh 6 CopyAll copy FROM &sf TO &tf COM ALL'
  55. 'DefineFunction Sleep Confirm SourceRefresh 7 Erase delete &sf'
  56. 'DefineFunction Sleep Confirm SourceRefresh 8 EraseAll delete &sf ALL'
  57. 'DefineFunction Sleep SourceRefresh TargetRefresh 9 Rename rename FROM &sf TO &tf'
  58. 'DefineFunction Sleep SourceRefresh TargetRefresh 10 Join join &sa AS &tf'
  59. 'DefineFunction TargetRefresh 11 MakeDir Makedir &tf'
  60. 'DefineFunction Sleep Console=1 TargetRefresh CLI 13 Format',
  61.    'FORMAT DRIVE &td NAME NEW NOICONS'
  62. 'DefineFunction Sleep Console=1 TargetRefresh CLI 14 DiskCopy DISKCOPY',
  63.         'FROM &sd TO &td'
  64. 'DefineFunction Sleep Confirm CLI 15 Install &tf'
  65. 'DefineFunction Run 17 More more &sf'
  66. 'DefineFunction Run NoSelect 18 Edit DME &sf'
  67. 'DefineFunction 21 Viewer SuperView &sf'
  68. 'DefineFunction CDSource NoQuote 25 Do &sf'
  69. 'DefineFunction CDSource 26 Run Run &sf'
  70. 'DefineFunction CDSource 27 Execute Execute &sf'
  71. 'DefineFunction Console=2 CDSource SourceRefresh ARexx 28 Extract Extract &SF'
  72.  
  73. return 0                                    /* That's all folks!        */                            /* Successful completion        */
  74.  
  75.